home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / gamesa / frmsetti.frm (.txt) < prev    next >
Visual Basic Form  |  1999-08-01  |  8KB  |  263 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSettings 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Settings"
  5.    ClientHeight    =   3225
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5985
  9.    Icon            =   "frmSettings.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3225
  14.    ScaleWidth      =   5985
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton cmdOK 
  18.       Caption         =   "&OK"
  19.       Default         =   -1  'True
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   9.75
  23.          Charset         =   0
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   495
  30.       Left            =   3660
  31.       TabIndex        =   11
  32.       Top             =   1665
  33.       Width           =   1215
  34.    End
  35.    Begin VB.HScrollBar HScroll1 
  36.       Height          =   375
  37.       Left            =   3420
  38.       Max             =   5
  39.       Min             =   1
  40.       TabIndex        =   5
  41.       Top             =   645
  42.       Value           =   3
  43.       Width           =   1695
  44.    End
  45.    Begin VB.OptionButton Option5 
  46.       Caption         =   "Mixed"
  47.       BeginProperty Font 
  48.          Name            =   "MS Sans Serif"
  49.          Size            =   9.75
  50.          Charset         =   0
  51.          Weight          =   700
  52.          Underline       =   0   'False
  53.          Italic          =   0   'False
  54.          Strikethrough   =   0   'False
  55.       EndProperty
  56.       Height          =   495
  57.       Left            =   375
  58.       TabIndex        =   4
  59.       Top             =   2400
  60.       Width           =   1215
  61.    End
  62.    Begin VB.OptionButton Option4 
  63.       Caption         =   "Division"
  64.       BeginProperty Font 
  65.          Name            =   "MS Sans Serif"
  66.          Size            =   9.75
  67.          Charset         =   0
  68.          Weight          =   700
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       Height          =   495
  74.       Left            =   375
  75.       TabIndex        =   3
  76.       Top             =   1920
  77.       Width           =   1215
  78.    End
  79.    Begin VB.OptionButton Option3 
  80.       Caption         =   "Multiplication"
  81.       BeginProperty Font 
  82.          Name            =   "MS Sans Serif"
  83.          Size            =   9.75
  84.          Charset         =   0
  85.          Weight          =   700
  86.          Underline       =   0   'False
  87.          Italic          =   0   'False
  88.          Strikethrough   =   0   'False
  89.       EndProperty
  90.       Height          =   495
  91.       Left            =   375
  92.       TabIndex        =   2
  93.       Top             =   1440
  94.       Width           =   1695
  95.    End
  96.    Begin VB.OptionButton Option2 
  97.       Caption         =   "Subtraction"
  98.       BeginProperty Font 
  99.          Name            =   "MS Sans Serif"
  100.          Size            =   9.75
  101.          Charset         =   0
  102.          Weight          =   700
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.       Height          =   495
  108.       Left            =   375
  109.       TabIndex        =   1
  110.       Top             =   960
  111.       Width           =   1695
  112.    End
  113.    Begin VB.OptionButton Option1 
  114.       Caption         =   "Addition"
  115.       BeginProperty Font 
  116.          Name            =   "MS Sans Serif"
  117.          Size            =   9.75
  118.          Charset         =   0
  119.          Weight          =   700
  120.          Underline       =   0   'False
  121.          Italic          =   0   'False
  122.          Strikethrough   =   0   'False
  123.       EndProperty
  124.       Height          =   495
  125.       Left            =   375
  126.       TabIndex        =   0
  127.       Top             =   480
  128.       Width           =   1215
  129.    End
  130.    Begin VB.Label lblSpeed 
  131.       AutoSize        =   -1  'True
  132.       Caption         =   "5"
  133.       BeginProperty Font 
  134.          Name            =   "MS Sans Serif"
  135.          Size            =   9.75
  136.          Charset         =   0
  137.          Weight          =   700
  138.          Underline       =   0   'False
  139.          Italic          =   0   'False
  140.          Strikethrough   =   0   'False
  141.       EndProperty
  142.       Height          =   240
  143.       Left            =   4200
  144.       TabIndex        =   10
  145.       Top             =   1035
  146.       Width           =   135
  147.    End
  148.    Begin VB.Label Label4 
  149.       AutoSize        =   -1  'True
  150.       Caption         =   "Speed"
  151.       BeginProperty Font 
  152.          Name            =   "MS Sans Serif"
  153.          Size            =   9.75
  154.          Charset         =   0
  155.          Weight          =   700
  156.          Underline       =   0   'False
  157.          Italic          =   0   'False
  158.          Strikethrough   =   0   'False
  159.       EndProperty
  160.       Height          =   240
  161.       Left            =   3900
  162.       TabIndex        =   9
  163.       Top             =   120
  164.       Width           =   705
  165.    End
  166.    Begin VB.Shape Shape2 
  167.       BorderWidth     =   2
  168.       Height          =   1170
  169.       Left            =   2595
  170.       Top             =   255
  171.       Width           =   3255
  172.    End
  173.    Begin VB.Label Label3 
  174.       AutoSize        =   -1  'True
  175.       Caption         =   "Fast"
  176.       BeginProperty Font 
  177.          Name            =   "MS Sans Serif"
  178.          Size            =   9.75
  179.          Charset         =   0
  180.          Weight          =   700
  181.          Underline       =   0   'False
  182.          Italic          =   0   'False
  183.          Strikethrough   =   0   'False
  184.       EndProperty
  185.       Height          =   240
  186.       Left            =   5190
  187.       TabIndex        =   8
  188.       Top             =   720
  189.       Width           =   465
  190.    End
  191.    Begin VB.Label Label2 
  192.       AutoSize        =   -1  'True
  193.       Caption         =   "Slow"
  194.       BeginProperty Font 
  195.          Name            =   "MS Sans Serif"
  196.          Size            =   9.75
  197.          Charset         =   0
  198.          Weight          =   700
  199.          Underline       =   0   'False
  200.          Italic          =   0   'False
  201.          Strikethrough   =   0   'False
  202.       EndProperty
  203.       Height          =   240
  204.       Left            =   2805
  205.       TabIndex        =   7
  206.       Top             =   720
  207.       Width           =   510
  208.    End
  209.    Begin VB.Label Label1 
  210.       AutoSize        =   -1  'True
  211.       Caption         =   "Problems"
  212.       BeginProperty Font 
  213.          Name            =   "MS Sans Serif"
  214.          Size            =   9.75
  215.          Charset         =   0
  216.          Weight          =   700
  217.          Underline       =   0   'False
  218.          Italic          =   0   'False
  219.          Strikethrough   =   0   'False
  220.       EndProperty
  221.       Height          =   240
  222.       Left            =   735
  223.       TabIndex        =   6
  224.       Top             =   105
  225.       Width           =   1005
  226.    End
  227.    Begin VB.Shape Shape1 
  228.       BorderWidth     =   2
  229.       Height          =   2895
  230.       Left            =   135
  231.       Top             =   240
  232.       Width           =   2175
  233.    End
  234. Attribute VB_Name = "frmSettings"
  235. Attribute VB_GlobalNameSpace = False
  236. Attribute VB_Creatable = False
  237. Attribute VB_PredeclaredId = True
  238. Attribute VB_Exposed = False
  239. Option Explicit
  240. Private Sub cmdOK_Click()
  241. If Option1.Value = True Then Choice = 1
  242. If Option2.Value = True Then Choice = 2
  243. If Option3.Value = True Then Choice = 3
  244. If Option4.Value = True Then Choice = 4
  245. If Option5.Value = True Then Choice = 5
  246. If HScroll1.Value = 1 Then Speed = 1
  247. If HScroll1.Value = 2 Then Speed = 2
  248. If HScroll1.Value = 3 Then Speed = 3
  249. If HScroll1.Value = 4 Then Speed = 4
  250. If HScroll1.Value = 5 Then Speed = 5
  251. Unload frmSettings
  252. frmGame1.Show 1
  253. End Sub
  254. Private Sub Form_Load()
  255. lblSpeed.Caption = HScroll1.Value
  256. End Sub
  257. Private Sub HScroll1_Change()
  258. lblSpeed.Caption = HScroll1.Value
  259. End Sub
  260. Private Sub HScroll1_Scroll()
  261. lblSpeed.Caption = HScroll1.Value
  262. End Sub
  263.